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v03-012 RASO300 Ron Schaefer 27-Apr-1984 
Add DEVSM_NNM characteristic to + | tas so that these 
a. will have the ‘‘node$"’ prefix 


v03-011 pacers Paul R. DeStefano 28-F eb-1984 

Modi fi ed ERROR routine so that software volume valid 
isn't set if a pack acknowledge function is executed 
and medium online isn’t set. 


v03-010 PRDOO031 aul R. DeStefano 09-Sep-1983 
Added EXESLCLDSKVAL ID to function decision table. 


v03-009 epueett Ralph 0. Weber 16-AUG-1983 
ange ¢ eet wn ongent tes at toteten base from UCBSW_BCR to 
gees -LCL_DISK_LENGTH. Also change UCBSL_DB_BCR to overlay 
eet. “BCR, a field newly created to meet fhe needs of this 
river. 


v03-008 PRDOO22 Paul R. DeStefano 05-May-1983 
Modified ERROR cout tna to attempt to clear a drive 
unsafe condidtion. 


y03-8 7 PRDS3302 aul R, DeStefano 04-May-1983 

ECO Modified RETRYERR routine i issue a Drive Clear before 
retrying a function. Modified FUNCXT routine to issue 
a Drive Clear function before releasing the drive. 
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§ 3 v03-006 PRDO017 Paul R. DeStefano 26-Apr-1983 
60 ; Modified FATALERR routine to return SS$_PARITY only for 
61 ; errors that possibly ndicate bad media. ALL other error 
6¢ 3 conditions which formerly returned SS$_PARITY now return 
o7 ; SSS_CNTLERR, 
65 ; v03-005 PRDO012 Paul R. DeStefano 14-Apr-1983 
66 5 Modified ect correction logic so that ECC is only applied 
0 67 ; when there is single bit ECC correctable error, or if there 
oe : is a multiple bit ECC correctable error and the error cannot 
3 $° 3 be corrected using retries. 
4 71; v03-04 ROW47161 Ralph 0. Weber 17-SEP-1982 
0 72; ECO 01 Enhance ECC recovery Logic to preyent bytes transfered counts 
0 ‘3 3 which are not exact multiples of 512 from causing transfer 
0 74 ; parameters from being incorrectly updated. Because a non-512- 
00 75 3 intergal bytes transfered counts indicates an incomplete 
000 76; transfer of the Last block, this change also prevents ECC 
4 f 3 corrections when such bytes transfered counts are encountered. 
4 79 ; v03-003 KDM0002 Kathleen D. Morse 28-Jun-1982 
4 ; Added SDCDEF, SDYNDEF, SPRDEF, and S$SSDEF. 
44 ¢ 3 v03-002 KTA0100 Kerbey T. Altmann 07-Jun-1982 
000 3 Add code to set UCBSL_MEDIA_ID field. 
0000 4; 
44 $ ; 
9000S 
B38 3 3 RPO4/04/06 CISK DRIVER 
44 90 ; MACRO LIBRARY CALLS 
000 «93 
0900 3 SCRBDEF sDEFINE CRB OFFSETS 
0000 94 SOCDEF sDEFINE DEVICE CLASSES 
$4 95 SDEVDEF sDEFINE DEVICE CHARACTERISTICS BITS 
00 9 SODBDEF sDEFINE DOB OFFSETS 
00 9 SOPTDEF sDEFINE DPT OFFSETS 
0 44 SDYNDEF sDEFINE DYNAMIC DATA STRUCTURE TYPES 
0 9 SEMBDEF sDEFINE EMB OFFSETS 
0 100 SIDBDEF sDEFINE IDB OFFSETS 
101 SIODEF sDEFINE 1/0 FUNCTION CODES 
1 ; SIRPDEF sDEFINE IRP OFFSETS 
1 SMBADEF sDEFINE MBA REGISTER OFFSETS 
104 SPROEF DEFINE PROCESSOR REGISTERS 
105 SSSDEF sDEFINE SYSTEM STATUS CODES 
1 $ SUCBDEF ;DEFINE UCB OFFSETS 
' 8 SVECDEF sDEFINE INTERRUPT DISPATCH VECTOR OFFSETS 
109 ; 
HB 3 LOCAL MACROS 
16 ; EXECUTE FUNCTION AND BRANCH ON RETRIABLE ERROR CONDITION 
114° 
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UNC BDST,FCODE 

NB FCODE 

ZBL #CD'FCODE,RO 
i FEX 
GNED_WORD BDST-.-2 


- MACRO ef 


~ENDM 


«MACRO GENF FCODE 
CD'FCODE=.-F TAB 
-BYTE 
-ENDM 


$ LOCAL SYMBOLS 
: RPO4/05/06 MASSBUS REGISTER OFFSETS 


SDEFINI RP 

SDEF RP_CS1 -BLKL 1 
VIELD RP_CS1,0,<- 

2,M>,- 

<F CODE, >= 

SDEF RP_DS 

_VIELD 


<ERR, -M>,- 

<ATA, ,M>=- 
> 
RP_ER1 -BLKL 


SDEF 
VIELD 
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68 <HCRE: MS, 
§ <AOE, ,M>,= 
<1AE,,M>,- 
7 <WLE,,M>,- 
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11 
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RIVE WRITE LOCKED 
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¢ 17 <OTE,.M>,= : DRIVE TIMING ERROR 
¢ WV <OPI,,M>,= + OPERATION INCOMPLETE 
C 174 <UNS,,M>,= : ORIV AF 
¢ 23 . <OCK, ,M>= : DATA CHECK ERROR 
f 158 SDEF  §RP_MR -BLKL 1 ;MAINTENANCE REGISTER 
1 178 SDEF  §RPTAS -BLKL so ZATTENTION SUMMARY REGISTER 
14 179 $DEF  RPTDA -BLKL 1 [DESIRED SECTOR/TRACK ADDRESS REGISTER 
1 180 _VIELD RP_DA,0,<= : DESIRED ADDRESS FIELD DEFINITIONS 
1 181 <$k,5>,- 3 DESIRED SECTOR ADDRESS 
1 1 3 <,3>,° + RESERVED BITS 
; < <ta,5>- + DESIRED TRACK ADDRESS 
18 185 SDEF RP OT -BLKL 1 SDRIVE TYPE REGISTER 
1c (1 6 _VIELD RP_DT,0,<- ; DRIVE TYPE REGISTER FIELD DEFINITIONS 
o1¢ 1 <DTN,9>,- : DRIVE TYPE NUMBER 
|? 8 <,2>.° : RESERVED BITS 
gic 3 <bRQ, ,M>=- ; DRIVE REQUEST REGUIRED 
1 191 $DEF _LA -BLKL 1 SLOOKAHEAD REGISTER 
0 19¢ SDEF § RPTER2 -BLKL 1 TERROR REGISTER 2 
024 193 SDEF RP OF x 4 SOFFSET REGISTER 
194 _VIELD RP_OF,0,<= : OFFSET REGISTER BIT DEFINITIONS | 
0 195 <OFF ,8>.- : OFFSET VALUE 
196 <DCK, ,M>,- + DATA CHECK IN PROGRESS (SOFTWARE) 
9 19 1>.- t RESERVED BIT 
0 198 <HCI,,M>,= : HEADER COMPARE INHIBIT 
0 19 <ECI,,M>,- : ECC INHIBIT 
3 4 <FAT,,M>= 3: 16-BIT FORMAT 
0 03 SDEF RP_DC -BLKL 1 [DESIRED CYLINDER ADDRESS 
0 ¢ SDEF RPUCC -BLKL 1 [CURRENT CYLINDER ADDRESS 
04 $DEF “SN -BLKL 1 ZDRIVE SERIAL NUMBER 
4 205 $DEF  RPTERS -BLKL 1 TERROR REGISTER 3 
06 _VIELD RP_ER3,14,<- : ERROR REGISTER 3 BIT DEFINITIONS 
0 <SRI,,M>- : SEEK INCOMPLETE 
0 3 SDEF RP_ECI -BLKL 1 SECC POSITION REGISTER 
03¢ 10 VIELD RP_EC1.0,<<PO0S,13>> : ECC POSITION FIELD 
i 11 SDEF RP _EC2 -BLKi SECC PATTERN REGISTER 
1 _VIELD RP_EC2,0,<<PAT,11>> : ECC PATTERN FIELD 
14 SDEFEND RP 
15 
\ > DEFINE DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 
1 * 
9 SDEFINI UCB 
0O0000CC $3 § -=UCBSK_LCL_DISK_LENGTH ; Establish device-dependent UCB base 
0000000 cc 4 UCBSL_DB_BCR = UCBSL_BCR ; Local BCR Lonquerd overlays the 
cc 5 3 space reserved in the UCB. 
$s § ; N.B. most drivers only need a word. 
cc 8 SDEF UCBSW_DB_ERS -BLKW 1 ; Space to save RP_ER3 after operation. 
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DEF UCBSL_DB_SR 

DEF  UCBSB_DB_ERL 

_VIELD ERL,0,<- 
bof F 


< 
<D DUALPORT. ">. 
<ECC_DEFER. ,M> 


UCBSK_DB_LENGTH=. 
SDEFEND 


15-$ 
538 
~BLKL 
-BLKB 


-BLKB 


? HARDWARE FUNCTION CODES 
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; LOCAL DATA 


; DRIVER PROLOGUE TABLE 


P=1984 23:45: i$ onphe Macro v04-00 Pa 
Eer15hs Bbit7 324 PORIVER. cee sbebeivee.man;1 2% 
1 SAVE MBA STATUS REGISTER 
1 3 Space for flag used to si pet Medium 
é fline at start of function. 


ity OFFLINE FLAG 

DUALPORT KIT FLAG 

Flag to inateate that ECC correction 
has been deferred until offset 
retries are exhausted. 


>, oo 


3 Reserved. 


Length of UCB for DB devices. 


iNO OPERATION 


BH Be AND DATA 
;READ HEADER AND DATA 


DPTAB. ;DEFINE DRIVER PROLOGUE TABLE 
END=DB_END,- ND OF OR ly VER 
ADAPTE REN 3 TADAPTER TYPE 
FLAGS=DP [SYSTEM PAGE TABLE ENTRY REQUIRED 
UEBS ze cUCBSK. “8. LENGTH,-;UCB cn he 
DPT_ STOR € INIT {CONT b BLOCK INIT VALUES 
DPT“STORE DOB, DDBSL_ACPD, cb: SPAN FL I\> DEF AU ace 
DPT” ~STORE DDB. DDBSL-ACPD+3.8,DDB$K_PACK ; it CLA 
DPT“STOR *UCBSBFIPL,B 


— U 
DPT-STORE U Aion My 


. sFORK IPL 
yi DEVCHAR,L,- :DEVICE CHARACTERISTICS 


ILES ORIENTED 


5 
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ww 


SSSSSSSSTSSSRm 


= ssss 


TWD WHO VWMOOOOOOOW?DO 


PMA AA MMA AAPIPIPIDINMIPINIPINIINY 2 9 tt tt 2 DOOO 
NO 


RO OD NO NEU “OOOO UNE WIN (OOOO UE Wi OOO 


= RP04/05/06 DISK DRIVER 


15-SEP-1984 23:45:36 VAX/VMS Macro V04-00 
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'DEVSM_DIR- ; DIRECTORY STRUCTURED 
iDEV RAV. : AVAILABLE 
iDEV =Et - + ERRO AhOgGING ENABLED 
i DEVS” SHR- : SHARE ABL 
i DEVSM-1DV- ; DEVICE 
iDEVSR~ODV - ; UrbuT DEVICE 
iDE + RANDOM ACCESS 
DPT_STORE é uc OcwaL DEVCHAR2,L.-: DEVICE CHARACTERISTICS 
<DEVSA_NNM : PREFIX NAME WITH ‘'node$’’ 
DPT_STORE UEB-OCBS8 _DEvcLAss B,DC$_DISK ;DEVICE CLASS 
DPT“STORE U UCBS¥_DE VBUF Situ 512 ;DEFAULT BUFFER SIZE 
DPT~ = STOR UcB-u UCB$B-DIPL.B, ;DEVICE IPL 
DPT"S 8; UCBs -ERTCAT 6, TERROR RETRY COUNT 
DPT” “STORE UCB-UCBSB_ERTRAX 18.8 3MAX ERROR RETRY C 
DPT“STORE R [CONTROL BLOCK RESINIT VALUES 
DPT “STORE DDB. DDBSL DDT,D, pespoT’ [DDT ADDRESS 


DPT"STORE E 


4 ; 
3; DRIVER DISPATCH TABLE 


ERROR 


BUFFER S 


DDTAB 0B,- DRIVER DISPATCH TABLE 
DB_STARTIO,- sSTART 1/0 OPERATION 
DB_UNSOLNT,- UNSOLICITED INTERRUPT 
be. “FUNCTABLE.- FUNC TION DECISION TABLE 
CAN NceL 1/0 ENTRY POINT 
6 STER DUMP ROUTINE 
Oran. ere NE SMBASL _BCReGeBSece 4541>#4>>,- ;DIAGNOSTIC BUFFER SIZE 
<<RP~EC2+4+MBASL Matalin ig iy oy DV_REGSAV>>,=- 
DB_RPOX_INIT UNIT INITIALIZATION 
: DATA CHECK FUNCTION TRANSLATION TABLE 
CHECKTAB: 
-BYTE COF_WRITECHECK :WRITE DATA 
-BYTE  COF-WRITECHECK READ DATA 
-BYTE  COF-WRITECHECKH [WRITE HEADER AND DATA 
-BYTE  COF"WRITECHECKH [READ HEADER AND DATA 
3 RPOX DRIVE TYPE DESCRIPTOR TABLE 
DB_DTDESC: 3 
«WORD *x10 sRPO4 
.BYTE T$_RPO4 3 
-BYTE § : 3 SECTORS 
.BYTE 319 TRACKS 
WORD 411 7411 CYLINDERS PER PACK 
- LONG rab 74 ;MAXIMUM BLOCKS PER PACK 
LONG *X20A50004 sMEDIA ID RP 
DB_DIDESCLEN=.-DB DIDESC sLENGTH OF DRIVE TYPE DESCRIPTOR 
-WORD “*211 7 RPO 
-BYTE DT$_RPOS : 


‘= 


re 
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| 
43 .BYT 22 SECTORS 
| 44 -BYT %§ :% TRACKS 
45 “WORD 411 411 CYLINDERS PER PACK 
| 4g “LONG 411019823 MAXIMUM BLOCKS PER PACK 
4 LONG — °420A50004 [MEDIA 1D "DB RPOS"’ 
| 4g “WORD *X RP06 
ri “BYTE DT$_RPO6 ; 
50 “BYTE 2¢ 122 SECTORS 
51 ‘ayte 19 :19_ TRACKS 
38 WORD 815 7815 CYLINDERS PER PACK 
5 “LONG 813019822 {MAXIMUM BLOCKS PER PACK 
34 “LONG  *X20A50006 :MEDIA ID "DB RPO6 
36 WORD 0 {END OF TABLE 
5 “BLKB DB_DTDESCLEN TSPARE DRIVE TYPE SLO 
38 -BLKB © DB_DTDESCLEN SPARE DRIVE TYPE SLO 
60 ; 
? : HARDWARE 1/0 FUNCTION CODE TABLE 
6 e 
64 FTAB: 
65 GENF —-F_NOP ZNO, OPERATION 
66 GENF  FUNLOAD OAD VOLUME 
6 GENF  FTSEEK SEER CYLINDER 
68 GENF  FTRECAL RECALIBRATE 
$9 GENF  FTORVCLR {DRIVE CLEAR 
GENF “NOP {RELEASE PORT (NOP) 
71 GENF  FTOFFSET ZOFFSET HEA 
? GENF  FTRETCENTER SRETURN HEADS TO CENTERLINE 
7 GENF  FTPACKACK PACK ACKNOWLEDGE 
74 GENF F~SEARCH :SEARCH FOR SECTOR 
75 GENF  FTWRITECHECK WRITE CHECK 
? GENF § FTWRITEDATA WRITE DATA 
? GENF § FIREADDATA TREAD 
? GENF § F-WRITEHEAD SURITE HEADER AAND DATA 
? GENF § FTREADHEAD ; READ HEADER AND DAT 
98 $80 GENF  FTWRITECHECKH WRITE CHECK HEADER AND DATA 
1 GENF § FREADPRESET TREAD IN PRESET 
D09A 386 GENF § FTSEARCHA :SEARCH AHEAD FOR SECTOR 
¥U 
0098 4; 
0098 5 3 OFFSET TABLE FOR RPO6 - RPO4 VALUES = RPOG VALUES * 2 & “XFF 
+ . 
098 ’ 
0098 8 OFFTAB: : 
0098 BYTE 0 :RETURN TO CENTERLINE 
DO9C ’ -BYTE “Xx 3+ (+400) 
C8 009 39 BYTE “XC 7-200 (-400) 
10 0096 39 “BYTE = *x1 #400 (+800) 
00 009F 39 “BYTE © *XD 7-400 (-800) 
18 00a 394 “BYTE = *X1 #690 (+1200) 
D0A1 «395 “BYTE © *XD 7-600 (-1200) 
d0Ag 9 “BYTE 0 ;RETURN TO CENTERLINE 
OAS «397 OFFSIZ=.-OF FTAB [SIZE OF OFFSET TABLE 
| 
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: «SBTTL RP04/05/06 FUNCTION DECISION TABLE 
; RP04/05/06 FUNCTION DECISION TABLE 


om 
oe 


DB_FUNCTABLE: SFUNCTION DECISION TABLE 
FUNCTAB ,- SLEGAL FUNCTIONS 
<NOP, - [NO OPERATION 
UNLOAD, = [UNLOAD VOLUME 
EK,= [SEEK CYLINDER 
RECAL,= SRECALIBRATE 
DRVCLR,- TDRIVE CLEAR 
RELEASE,- TRELEASE PORT 
OFFSET, - SOFFSET HEADS 
RETCENTER, = SRETURN HEADS TO CENTERLINE | 
PACKACY,= [PACK ACKNOWLEDGE 
SEARCH = SSEARCH FOR SECTOR 
READPRE SET, = [READ IN PRESET 
SENSE CHAR, - SSENSE CHARACTERISTICS 
SETCHAR,= ?SET CHARACTERISTICS 
SENSEMODE , - SSENSE MODE 
SE TMODE ,- *SET MODE 
WRITECHECK,- SWRITE CHECK 
WRITEHEAD, - [WRITE HEADER AND DATA 
READHEAD , = [READ HEADER AND DATA 
WRI TECHECKH, = [WRITE CHECK HEADER AND DATA 
READLBLK,=- [READ LOGICAL 
WRITELBLK,- [WRITE LOGICAL BLOCK 
READPBLK,- [READ PHYSICAL BLOCK 
WRITEPBLK,- [WRITE PHYSICAL BLOCK 
READVBLK,- [READ VIRTUAL BLOCK 
WRITEVBLK,- SWRITE VIRTUAL BLOCK | 
AVAILABLE,- [UNIT AVAILABLE 
ACCESS, = TACCESS FILE AND/OR FIND DIRECTORY ENTRY | 
ACPCONTROL,- SACP CONTROL FUNCTION | 
CREATE,- TCREATE FILE AND/OR CREATE DIRECTORY ENTRY 
DEACCESS,- SDEACCESS FILE | 
TE,- [DELETE FILE AND/OR DIRECTORY ENTRY | 
DIFY.- [MODIFY FILE ATTRIBUTES | 
> [MOUNT VOLUME 
FUNCTAB ,- [BUFFERED 1/0 FUNCTIONS | 
. [NO OPERATION 
UNLOAD, = [UNLOAD VOLUME 
K,- [SEEK CYLINDER 
RECAL,= TRECALIBRATE 
DRVCLR,- SDRIVE CLEAR 
RELEASE ,- [RELEASE PORT 
OFFSET, - SOFFSET HEADS 
RETCENTER, - [RETURN HEADS TO CENTERLINE 
PACKACK, = [PACK ACKNOWLEDGE 
SEARCH, = ?SEARCH FOR SECTOR 
AVAILABLE ,- [UNIT AVAILABLE 
READPRESET,- READ IN PRESET 
SENSE CHAR, - ?SENSE CHARACTERISTICS 
SETCHAR, = [SET CHARACTERISTICS 
SENSEMODE ,- [SENSE MODE 
SE TMODE ,- SET 


vt 
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4 $ ACCESS, = ZACCESS FILE AND/OR FIND DIRECTORY ENTRY 
4 ACPCONTROL, = TACP CONTROL FUNCTION 
4 : CREATE - i CREATE FILE AND/OR CREATE DIRECTORY ENTRY 
4 DEACCESS,- :DEACC SS FILE 
460 DELETE,= [DELETE FILE AND/OR DIRECTORY ENTRY 
461 MODIFY.= ‘MODIFY FILE ATTRIBUTES 
46 MOUNT> [MOUNT VOLUME 
46 FUNCTAB tACPSREADBLK, - [READ FUNCTIONS 
464 <READHEAD TREAD HEADER 
465 READLBLK.- [READ LOGICAL BLOCK 
46 READPBLK.~ SREAD PHYSICAL BLOCK 
46 Eeavat [READ VIRTUAL BLOCK 
& 8 FUNCTAB +ACP WATTEBLK, = [WRITE FUNCTIONS 
46 ITECHECK SWRITE CHECK 
470 “URITECHECR- [WRITE CHECK HEADER AND DATA 
471 RITEHEAD,= iWRITE HEADER 
47¢ WRITELBLK, - ‘WRITE LOGICAL BLOCK 
47 WRITEPBLK.- [WRITE PHYSICAL BLOCK 
OBF 47% WRITEVBLK> “WRITE VIRTUAL BLOC 
a 475 FUNCTAB sACPSACCESS <ACCESS, CREATE> ;ACCESS AND CREATE FILE OR DIRECTORY 
OD 476 FUNCTAB *¢ACPSDEACCESS, <DEACCESS> ;DEACCESS FILE 
0&3 47 FUNCTAB tACPSHODIFY. = ; 
OE 478 CONTROL.-= SACP CONTROL FUNCTION 
0&3 47 <OELETe [DELETE FILE OR DIRECTORY ENTRY 
0&3 480 RODIFYS SMODIFY FILE ATTRIBUTES 
OOEF 481 FUNCTAB +ACPS$MOUNT, <MOUNT> [MOUNT VOLUME 
OfB 4 ; FUNCTAB tEXESLCLOSKVALID,~ TLOCAL DISK VALID FUNCTIONS 
oF 4 <UNLOAD [UNLOAD VOLUME 
FB 444 AVAILABLE, [UNIT AVAILABLE 
ore 485 PACKACK> ZPACK ACKNOWL EDG 
1 4 g FUNCTAB sEXESZEROPARM, ° ERO PARAMETER FUNCTIONS 
107 4 ?NO OPE 
107 488 a 600. S UNLOAD VOLUME 
107 489 RECAL,- SRECALIBRATE 
107 490 DRVCLR,= :DRIVE CLEAR 
197 491 RELEASE, - TRELEASE PORT 
107 49 RETCENTER, = RETURN HEADS TO CENTERLINE 
107 49 READPRE SET, - [READ IN PRESET 
107 49% AVALLABL - SUNIT AVAILABLE 
107 495 [PACK ACKNOWLEDGE - 
113 49 FUNCTAB sERESONEPARM, ° TONE PARAMETER FUNCTIONS 
113 49 <SEEK SSEEK CYLINDER 
113 49 OFFSET. - iOFFSET HEADS 
113 49 or RCH> SSEARCH FOR SECTOR 
11F 0 FUNCTAB *EXESSENSEMODE, - ; 
11F 1 <SENSECHAR, = TSENSE CHARACTERISTICS 
11F g SENSEMODE > [SENSE MODE 
1 FUNCTAB *+EXESSETCHAR, = : 
128 4 <SETCHAR, = [SET CKARACTERISITCS 
128 5 SE TMODE> [SET MODE 


————_——_— 
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| DBDRIVER = RP0G/05/06 DISK DRIVER 1-$EP-19 4 3:45: 36 YAX/ vis Macro v04-00 Page 10 
Vv START 1/0 OPERATION -SEP-1984 00:11:41 (CORIVER.SRCJOBDRIVER.MAR; 1 (1) 
i , ~SBTTL START 1/0 OPERATION 
! f 09 ; DB_STARTIO = START 1/0 OPERATION ON DEVICE UNIT 
, 1 : THIS ENTRY POINT IS ENTERED TO START AN I/O OPERATION ON A DEVICE UNIT. 
13 18 : INPUTS: 
137. 515: R3 = ADDRESS OF 1/0 PACKET. 
f 1 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
f 18 : OUTPUTS: 
137 0: FUNCTION DEPENDENT PARAMETERS ARE STORED IN THE DEVICE UCB, THE ERROR 
137 1; RETRY COUNT IS RESET, AND THE FUNCTION IS EXECUTED. AT FUNCTION COMPLETION 
oi , j : THE OPERATION IS TERMINATED THROUGH REQUEST COMPLETE. 
137 ’ 
; 7 3 5 DB_STARTIO: :START 1/0 OPERATION 
0080 cS 0081 C5) «90 0137 6 MOVB § UCBSB_ERTMAX(RS) ,UCBSB_ERTCNT(R5) ; INITIALIZE ERROR RETRY COUNT 
BA OSE BICB #<ERL_M_MEDOFF !- ; Clear flags used to signal medium 
013F 8 ERL_M_ECC_DEFER>,- ; offline and ECC correction deferred 
0Op2 cS. 05 O13F 529 UCBSB-DB_ERL(RS) : at start of function. 
009A 20 A3 BO 0143 2 0 MOVW  IRPSWIFURC(R3) ,UCBSW_FUNC(R5) ;SAVE FUNCTION CODE AND MODIFIERS 
50 38 a2 00 O149 3 MOVL  IRPSLTMEDIA(R3S ,RO 3GET PARAMETER LONGWORD 
14D ; 
O14D 2 4 + MOVE FUNCTION DEPENDENT PARAMETERS TO UCB 
14D 6° 
6 OO EF oie 7 108: EXTZV #IRPSV_FCODE ,#IRPSS_FCODE.- ;EXTRACT 1/0 FUNCTION CODE 
51 20 a3 130 5 8 IRP$W_FUNC(RS) ,R1 ; 
02 9 3 339 cups #10$_SEEK.R1 : SEEK FUNCTION? 
51 Oe 91 138 a2) CHPE #108 _OFFSET.RI [OFFSET FUNCTION? 
1 13 0158 348 BEQL 30% tIF EQL YES 
51 09 91 O15D 54 CMPB #108_SEARCH,RI :SEARCH FUNCTION? 
3 13 016 344 BEQL 408 SIF EQL YES 
51 17 91 «016 45 CMPB #108 AVAILABLE, R1 SAVAILABLE function? 
OF 13° 016 6 BEQL 15$ sBranch St 
00BC cs 30 D0 0167 54 MOVL RO ycesu DACRS) SSTORE PARAMETER LONGWORD 
1 18 91 016¢ 48 CMPB «= ss #10$_WRITECHECKH,R1 [DISJOINT FUNCTION CODE? 
9 1A 16 4 BGTRU 50$ “IF GTRU NO 
51 63 A 171 0 SUBW #108_WRITECHECKH-108_READHEAD=1 .R1 ZCONVERT TO DENSE FUNCTION CODE 
s 4 176 1 BRB 50$ : 
176 : 3 
178 : 3; AVAILABLE FUNCTION = Clear software volume valid bit & exit 
64 AS 9800 F AA 0176 4 15s:  BICW  #UCBSM_VALID, UCBSW_STS(RS) :Clear software volume valid bit. 
1 3c.) S017 : MOVZWL #SSS_NORMAL, R sSetup success status for zero 
1 D4 O17F 8 CLRL R1 sbytes transfered operation, 
: } é0 sand complete request. 
187 3 
, ee : SEEK FUNCTION = SET CYLINDER ADDRESS 
j e 
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5/06 DISK DRIVER 15-SEP :36 VAX/VMS Macro v04- Page 11 
0 OPERATION arSEEa TREE SaiTFize PORES Bacco yotrOo ., Page i 
OOBE CS 50 80 208:  MOVW —_—-RO, UCBSW_DC(RS) :SET CYLINDER ADDRESS 
C BRB 50$ ; 


OFFSET FUNCTION = SET CURRENT OFFSET VALUE 


30$:  MOVB  R0O,UCBSW_OFFSET(RS) :SET OFFSET VALUE 
BRB 50$ 


00cs C5 30 90 
0 


; ; SEARCH FUNCTION = SET SECTOR ADDRESS 


408: MOVB RO,UCBSW_DA(RS) SET SECTOR ADDRESS 


= 
— 
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oosc (<5 50 90 


PUDVIVIVLVLVSIVSVSVSVOSVOSVSVOSIOSIOS SISOS 


: FINISH PREPROCESSING 


0092 ¢S. 51. «90 50$: MOVB. RI ycese, FEX(RS) sSAVE FUNCTION DISPATCH INDEX 
54 24 85 00 MOVL uC CBSL RG ET ADDRESS OF C 
MOVE cRBsC wrt IDB(R4S_R4 :GET FIRST CONTROLLER CSR ADDRESS 


54 =62C B40 
E4 


00 68 AS. 00 BBSC iti tine “ECC, UCBSW_BEVS recr§o FDISPATCH ;CLEAR ECC CORRECTION MADE 


3000 0900 09 09 09 69 09 09 09 SI INI NII NN NINA AAAAO 


CENTRAL FUNCTION DISPATCH 


FDISPATCH: ZFUNCTION DISPATCH 
D0 MOVL UCBSL_IRP(RS),R3 “RETRIEVE ADDRESS OF 1/0 PACKET 
9 2A a3 08 EO BBS #IRPSO_PHYSIO. IRP$SW_STS(R3),10$ ;1F SET, PHYSICAL 1/0 FUNCTION 
08 64 AS BBS suCBSV" VALID ucesu _STS(R5),10$ ;1f SET, VOLUME SOFTWARE VALID 
50 0254 BF C MOVZL #3S8 VOLINVR 7SET VOLUME INVALID STATUS 


UNIT IS SOFTWARE VALID OR FUNCTION IS PHYSICAL 1/0 


chante netic renin np steht isi i Aad og Inte pontge bh a Pt hate 


COOOQOCOOOOOOCOOCOCOOOOOOOOOOCOOOOO OOOO OOOOOOOOO0Oo 


aaa aaa a a es st a a ws ss ss 2 


PEDDLE AAP PAA AA PAA A AA DP AAA AAA Arner 


Ne OO SH QOOOOOOOCOSOOOOoovowvons 


50 0092 65 9A 108: MOV ZBL UcesB, FEX(RS) RO -GET DISPATCH FUNCTION CODE 

00c9 ¢5_ —- 10——«*=#9 MOV FMT/256 yCBSu_OFFSET+1(R5) :CLEAR ECI, HCI, AND SET FORMAT 

00¢B cs 01 HOVE Ler OFERTC CA sSET INITIAL OFFSET RETRY COUNT 

OCA CS 9% CLRB is B_OF FNDX(R5) [CLEAR INITIAL OFFSET TABLE INDEX 
CASE [DISPATCH TO FUNCTION HANDLING ROUTINE 
[NO OPERATION 

Bi [UNLOAD VOLUME 
K,- 'SEEK CYLINDER 
RECAL,= SRECALIBRATE 
VCLR, = SDRIVE CLEAR 
ELEASE,= SRELEASE PORT 
| OFFSET, = sOFFSET HEADS 
| RETCENTER,- TRETURN HEADS TO CENTER 
| PACKACK, = [PACK ACKNOWLEDGE 
| SEARCH, - [SEARCH FOR SECTOR 
WRITECHECK,- SWRITE CHECK DATA 


——————————_——_———  . — - 
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DBDRIVER = RP04/05/06 DISK DRIVER 15=SEP=1984 23:45:36 VAX/VMS Macro v04-00 Pa 
Mirai tt START 1/0 OPERATION -SEP=1984 88:47: rAd LORIVER. St SRE SDBDRIVER.MAR: 1 a 
1 WRITEDATA,= WRITE DA ATA 
1 READDATA, = READ DATA 
1 WRITEHEAD, = sURITE HEADER | AND DATA 
1 READHEAD, = [READ HEADER DATA 
1 WRITECHECKH,= SWRITE CHECK HEADER AND DATA 
READPRESE I= SREAD IN PRESET 
01 : 10$ UNLOAD INDICATES THE UNIT IS NOT MOUNTED SO WE CLEAR SOFTWARE VOLUME 
1 ; VALID 8 BEFORE EXECUTING THE OPERATION. I0$ PACKACK INDICATES THAT SOFTWARE 
1 ; IS REA OUNT THE VOLUME SO WE SET SOFTWARE VOLUME VALID BEFORE 
; EXECUTING THE OPERATION. 
U 


INLOAD: 
BICW #UCBSM_VALID, UCBSW_STS(R5) ;Clear software volume valid bit. 
BRB NOP :Proceed with the unload operation. 


ae VALID, UCB$W_STS(R5) ;Set software volume valid bit. 
: BRB :Proceed with the unload operation. 


; NO_OPERATION, SEEK, RECALIBRATE, DRIVE CLEAR, RELEASE, OFFSET, 
; RETURN TO CENTER LINE, SEARCH, AND READ IN PRESET 


NOP: NO OPERATION 


SEEK: ;SEEK CYLINDER 

RECAL: ;RECALI 

DRVCLR: sDRIVE C 
RELEASE: ;RELEASE PORT 

FFSET: sOFFSET READ HEADS 
RETCENTER: ;RETURN TO CENTERLINE 
H: J. pl FOR sector 
READPRESET: ;READIN PRESET 
EXFUNC RETRY sEXECUTE HOUSEKEEPING FUNCTION 
; ee i BRB NORMAL ; 


t WRITE CHECK DATA AND WRITE CHECK HEADER AND DATA 


PDEA AA AAA AAA AAA AA AAA AA AAA AAAAAAAAAAAAAAOS 


ed ed ed ed ed eed ed md — HO OO OOOO QOOCOCQCOCOCOCOCOCOCOCOCOCO NMR MMMM MOGVSGVVTVTIJSTG ~CO 
PAEQADDQDE Ar & BB EE EE EA 
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WRITECHECK: sWRITE CHECK DAT 
665 WRITECHECKH: sWRITE CHECK K HEADER AND DATA 
009A CS 4000 BF AA 98 BICW #IOSM_DATACHECK,,UCBSW_FUNC(R5) ;CLEAR DATA CHECK REQUEST 
668 ; 
06 3; WRITE DATA, WRITE HEADER AND DATA, WRITE CHECK DATA, AND WRITE CHECK HEADER 
670 ; AND DATA 
671 ; 
of¢ 
675 WRITEDATA: sWRITE DATA 
674 WRITEHEAD: ;WRITE HEADER AND DATA 
00c9 ¢S) ss O8——s«é8B erg B1SB #RP_OF_M_EC1/256,UCBSW _OFFSET#1(R5) : INHIBIT ECC CORRECTION 
677 ; 


64 AS 0800 8F AA 
06 11 
64 AS 0800 8F AB 


ao 


re 
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DBDRIVER = RP04/05/06 DISK DRIVER =-SEP=-19 45:3 AX/VMS Macro v04-00 Page 
viral tt START 1/0 OPERATION ae et 9 88:1 11: 79 DRIVER. SRCJDBDRIVER.MAR; 1 ° 
1¢ 678 ; READ DATA, READ HEADER AND DATA, WRITE DATA, WRITE HEADER AND DATA, WRITE 
1€ 679 : CHECK DATA, AND WRITE CHECK HEADER AND DATA 
1€ 6B): 
i¢ 66 : READDATA: ZREAD DAT 
1€ 683 READHEAD: ‘READ HEA DER AND DATA 
08 009A CS) =«(0C~CéSO 1 684 BBS #10$V_INHSEEK ,UCBSW_ FunctR ), TRANROCH ;IF SET, NO EXPLICIT SEEK 
H 6 EXFUNC RETRY, F_SEARCHA EARCH AHEAD OF STARTING SECTOR 
A 687; 
A 6 8 : DATA TRANSFER = REQUEST CHANNEL 
A 690 ° 
A 691 TRANRQCH: :DATA TRANSFER REQUEST CHANNEL 
A 69¢ REQPCHAN LOW SREQUEST PRIMARY CHANNEL FOR TRANSFER 
0 694; 
0 0 695 : DATA TRANSFER = CHANNEL ALREADY OWNED 
$536 bo9 
0230 698 TRANNOCH ZDATA TRANSFER CHANNEL OWNED 
50 009265 9A 0230 699 MOVZBL UCBSB FEX(RS) RO [GET FUNCTION DISPATCH INDEX 
0239 00 EXFUNC TRANXT SEXECUTE TRANSFER FUNCTION 
ae 
053A 703 : DATA CHECK 
ae 
OSSa 706 DATACHECK CHECK 
43 009A (SOE g 023A 707 #10$V_DATACHECK,UCBSW_ FUME CRS) NORMAL ;IF CLR, NO DATA CHECK 
50 0659 8F C 040 708 MOVZWL #SS$_QASECC,R sASSUME ECC CORRECTION WAS MA 
3C 68 AS) =6000)=SC EO «(0245 ~=—s 709 #UCBSV_ECC ,UCBSW_ DEVSTS(R5), CHECKXT ;IF SET, ECC CORRECTION MADE 
024A 710 RELCHAN RELEASE CHANNEL 
0009 ¢5_ 1990 6 50 711 MOVB #<RP_OF_M_DCK!- tSET DATA CHECK IN PROGRESS, 
55 ile _OF_M7ECI!- : INHIBIT ECC CORRECTION, AN 
0255 71 “OF “M-FMT>/256,UCBSW_OFFSET+1(R5) ;SET FORMA 
oocB cS «01 s(«9s«0255—s 714 MOVB #17UCB$B_OFFRTC(R5) sSET INITIAL OFFSET RETRY cou 
OOCA CS 94 025A 715 CLRB 6$B_OF FNDX(RS) SCLEAR INITIAL OFFSET TABLE UNDEX 
52 58 AS 3600 6(025E «= 716 MOVL CBSL-IRP(RS) ,R2 :GET ADDRESS OF IRP 
78 A ec Ag D 6 és 717 MOV  IRPSL“SVAPTE(R2) ,UCBSL_SVAPTE(RS) ;RESET TRANSFER PARAMETERS 
oopc cS) 38 A2~soéO 0 67 718 MOVL  IRPSLIMEDIA(R2) ,UCBSW_BAC(RS) ; 
026D 720; 
8 ve is 3 DATA CHECK RETRY 
60 723° 
6D 726 CHECKRETRY: SDATA CHECK RETRY 
50 0092 (5 9A 2 ; 3 mOVEOL Nutose FEX(RS) RO CET FUN NCTION DISPATCH IN be apo 
50 FDBO CF40 9A 0278 7 5 MOVZBL CHECKTAB-CDF “anT reoatacnOSe4 no. UeET CASE TABLE INDEX 
7 , 8 EXFUNC CAAT CUTE DATA CHECK FUNCTION 
730 ; 
f + SUCCESSFUL OPERATION COMPLETION 
7 e 
734 NORMAL ; 
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CHECKXT: 


: TRANSFER ENDED WITH A RETRIABLE ERROR 


TRANXT: 


6 
RETRY: 


ECC: 


10$: 


MOVZWL 


BEQL 
BRW 


15-SEP-19 

3 $Eb= bac 
$“#SS$_NORMAL ,RO 
FUNCXT 


1638 i pes Macro V04-0 


<9 
ow 


0 Page 14 
LORIVER. SRCIDBDRIVER.MAR: 1 1 


SET NORMAL COMPLETION STATUS 


) 


TRANSFER EXIT 


45 i WRITEDATA,UCBSB_ centRS) ei ets DATA FUNCTION? 
#COF_WRITEHEAD,UCBSB_ cexins) Rg HEADER FUNCTION? 
#MBASM_SR_D {DATA 
MBASM_SR_ INUMAP!- SINVALID MAP REG R, 
MBASM_SR-MAPPE ! - ;MAP REGISTER PARITY ERROR OR, 
MBASM_SR_MCPE !~ ;MASSBUS CONTROL P ARTY ERROR OR, 
MBASM_SR_SPE!- 7SILO PARITY ERROR 
MBASM~SR—MDPE ! = ;MASSBUS DATA PARITY ERROR OR, 
MBASM_SR_MXF i= sMISSED TRANSFER OR 
MBASM-SR-NED'- TNONEXISTENT DISK OR 
MBASM_SR_RDS!- 3R DATA SUBSTITUTE OR, 
MBASM_SR_WCKLWR!- sWRITE CHECK LOWER BYTE OR, 
MBASM_ “SR_WCKUPR, R] sWRITE CHECK UPPER BYTE? 
RETR s1F NEQ YES = RETRY FUNCTION 
peo ~ERT Vv _HERC. R2,ECC ; First check HCRC. If bad go to ECC. 
P-ER1-M-FER sFORMAT ERROR OR, 
RP ERI A ACES: ; Header Compare Error. 
RP_ER1_M_OPI!- sOPERATION INCOMPLETE OR, 
RP “ER1_M_ PAR! - ;PARITY ERROR OR, 
RP-ER1_M-WCF RZ SWRITE CLOCK FAIL? 
ect IF EQL NO 
RETRYERR SRETRIABLE ERROR 
; ECC, DRIVE TIMING, OR HEADER ERROR - APPLY ECC OR PERFORM OFFSET RECOVERY 
sEGe CORRECTION 
UCBSW_BCR(RS), - ; Compute bytes transfered then 
BSW-BCNT(RSS, RI : clear byte offset bits and 
#*XFFFFOUFF, Ri, RO ; convert result to a longword. 
F 3 Branch if whole blocks Stored is zero. 
@*xiFF, R1 ; Was a partial block transfered? 
; Branch if partial block transfered. 
ny ER1_ M_HCE!- ; Was there an error while processing 
P_ER1_A_ACRC, R2 ; the header? 
08 : Branch if header error. 
12, RO ; Fase. coouse “Thing ER xfered by a block. 
#RP_ER1_M_DTE!- ; IAING ERROR 
P_ER1_M_ECH!- : RROR 
RP~ER1“M~HCE I~ ; HEADER CORPARE ERROR 
RP~ER1-M-HCRC,R2 ; HEADER CRC ERROR 
oFrF erform offset recovery. 
#RP_OF_V_ECI,UCBSW_ OFFSET(RS).OFF Branch if ECC inhibited. 
R2,=(SP) ; Save work registers. 
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RIVER = RP04/05/06 DISK D 7:45:3 AX/VMS Macro v04-00 Page 15 
bev START 1/0 OPERATION -SEP-1984 85:41:44 LORIVER. SREIDBDRIVER.MAR: 1 ° (1) 
S52 00c6 cS 08 00 EA 1 238 FFS #0,411,UCBSW_EC2(R5) ,R2 ; g-~ A first error bit in the ECC 
3; pattern. 
53 OA S$2 C3 €B 7 SUBL3) = R2, #10, R3 3 Get the number of wre adits 
EF 795 i _remaining in the pat 
9 15 EF £36 BLEQ 20$ 3; Branch if no other bits. in pattern. 
§ 06 ri 79 Nel e ; Point ot next bit in pattern. 
52. 00c6é cS 53 EF F oe EXTZV = R2,R3 UCgSu_ECECRS) RZ ; Is there more than one error bit set? 
OC BA FA 799 20%: POPR #*acr$,R2> ; Restore were cogreters without 
FC + ; M penity A lags. 
29. =A FC 1 BGTRU DEFER_ECC ; more than one error bit set, don't 
4 § ; apply ECC correction. 
43 ¢ 3; APPLY_ECC - 
4; oF : Apply ECC correction to correct a single bit error. 
FE 4 
FE $8 APPLY_ECC: 
7E 65 3¢ FE 10 MOVZWL R1 Save total extes transfered, inc. ECC. 
00000000°GF 16 0301 811 JSB 6" {OC SAPPLYECC TAPPLY ECC CORRECTION 
0 8EDO 07 \§ POPL £0 :RETRIEVE TRANSFERED BYTE COUNT 
00000000'° 16 OA 1 JSB MS Se ot plbey  og [UPDATE TRANSFER PARAMETERS 
OOCA C5) 94 10 14 CLRB ucBsB_0 x(R5) : Reset offset table index. 
14 15 EXFUNC FA TALERR, f FRETCENTER Return to centerline 
7E A 83 1¢ TSTwW ycesw_ BCN ANY i? TO TRANSFER? 
0 1 1F 1 BEQL 0$ t IF L NO 
FFO Hi 1 18 BRW TRANNOCH «TRANSFER NEXT SEGMENT 
FFI 1 8 4 19 20$: BRwW DATACHECK sCHECK FOR WRITE CHECK 
ae 
6 , Gi > DEFER_ECC = 
7 4 Don't apply ECC correction for multiple bit errors unless the error cannot 
7 5 ; be recovered with offset retries. 
; Be: 
7 8 DEFER_ECC: 
06 88 7 BISB WERL_M_ ECC _DEFER,- ; Set flag to indicate that ECC 
00D2 C5 0 9 uCB$6_6B_ERL(R5) 3 can be used if offset recovery fails. 
C 3 
: § 3 OFF = OFFSET RECOVERY 
C 5 : THIS CODE IS EXECUTED 'JHEN A DRIVE TIMING ERROR, HEADER COMPARE, OR ECC 
; § ; HARD ERROR IS DETECTED ON A READ FUNCTION. 
¢ e 
¢ $ OFF: yt RECOVERY 
C m4 TSTL RO Y GOOD DATA TRANSFERED? 
4 BEQL 208 au EQL NO 
rh} 
44 : THE hint ts ENDED IN AN ERROR BUT THERE WERE SECTORS TRANSFER ep THAT 
45 ; CONTAINED S08 ye ed SINCE THE ERROR COULD HAVE BEEN CAUSED BY A CYLIN- 
$$ : ; DER CROSSING E GOOD DATA IS SAVED AND THE TRANSFER IS RETRIED FROM THE 
47 > POINT OF ERROR. 
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408: 


5 
50$: 


RETRYERR: 
5 


10$: 


15$: 


20$: BITw 


30$: 


60$: BBS 
70$: 


OF FSETERR: 
MOVL 
MOVL 
BRB 


PUSHR 


"ESE IBE 
ae Seg bres 4 


r18,0 urese OF FRTC(RS) ; C 
Agr FSiz, UCBSB_OFFNDX(RS) ;ALL rans TRIED? 


Branch ot. 
vces V_ECC_DEFER,- Correct the error with ECC if we can. 
UCB 8 -f8 cERL tr ),- 


OFFSETERE 
FATALERR,F _RETCENTER 
508 
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Pa 
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B5:FF 24 


UPDATE TRANSFER ime 
F LE INDEX 


; Otherwise me error. 
RELEASE CH 
; RETURN TO CENTERLINE 


: 3 NO GOOD DATA TRANSFERED = CHECK IF CHANGE IN OFFSET NEEDED 


#RP_ER1_M_DCK!= ;DATA CHECK OR 
RP_ER1_A_BTE!- SDRIVE TIMING AAP 
RP-ER1_M-ECHi- TECC HARD ERROR OR, 
RPSERTRLHCE.R2 HEAD DER COMPARE ERROR? 
#RP_OF_M_HC1/256,UCBSW_ of bgt ckSt {SET WEADER COMPARE INHIBIT 
UcBSB_OFFRTC(RS) CH ANGE Comment OF FSET? 
UCBS$B_OF FNDX(R5) [UPDATE OFFSET TABLE INDEX 
UCBSB-OF FNDX(R5) ,RO :GET NEXT OFFSET TABLE INDEX 
OF F TAB-1CRO),RO 7GET NEXT OFFSET VALUE? 
1 TIF EQL RETURN TO CENTERLINE 
#2, RP_DT(R3) :RPOG DRIVE? 
40$ :1F NEQ YES 
#2,R0 [CONVERT TO RPO4 yorrset VALUE 
RO, UCBSW_OFFSET(RS) :SET NEW OFFSET 
#2, UCBS$B_OF FRTC(R5) 3SET OFFSET RETRY COUNT 
RELEASE C HANNE 
FATALERR,F OFFSET OFFSET 19 NE POSITION 
P_OF_M_HC1/256,UCBS$W OFF SET#I(R ) ‘CLEAR HEADER COMPARE INHIBIT 
#RP~OF ~V~DCK ,UCB$wW_OFFSET(RS),70$ ;:1F SET, DATA CHECK FUNCTION 
TRANROCH :TRY FUNCTION AGAIN 
CHE CKRETRY STRY DATA CHECK AGAIN 


ECOVERY OR 


OFFSET REC ERR 

RP_DS(R3) SRETRIEVE FINAL DRIVE STATUS 

UcBsi dB_ » 20S). R1 SRETRIEVE FINAL ERROR STATUS 
ATALERR : Branch around. 


os 
; RETRIABLE ERROR 


sRETRIABLE ERROR 


#*A<RO,R1,R2> ; Save volitsl error status registers. 
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g-$EB-19 
=SEP-19 


#*°A<RO,R1,R2> 


#RP_ER3_V_SKI 
uCcBSW_DB_ER3(R 
P_ER1 0 _HCE 

ATALERR,F REC 
88 ERTCAT(RS) 


SPATC 


#RP_DS_V_MOL 
#SSS_MEDOFL,RO 
#UCBSM_VALID,- 
UCBSW_STS(RSS 
FUN 


vv.RO,20$ 


x 
#RP_OS_V 
#SS$_URSAFE,RO 
#rP_ER1_V_UNS,R2 
#SS$_OPINTOMPL ,R 


P_ER1_V_OPI,R2,FUNCXT 
R2.FUNCKT 
R2,FUNCXT 


#SSS_FORMAT,R 
#rP_ERi_v_ FER 
#SSS_WRITCCK,R 
#rP_ER1_v_wLe 
#SS$_IVADBR,RO 
RP_ER1_M AOE!- 
P ERI A_TAE,R2 


U 
#SS$_DRVERR,RO 
erp _ER1_ Mm DTE!- 
R ATL 


RP~ER1—-M-RMRi- 
RP~ER1"“M-WCF R2 
FURCXT 
#SS$_PARITY,20 
erp Eri mM DCK!- 
RP_ER1_A_ECH!- 
RP~ER1"“M-HCRCR2 
FURCKT 
#SS$_CTRLERR,RO 


#rP_ER1_M HCE! 
RP_ER1_A_PAR,R2 
FURCKXT 


5) 
R2 
AL 
C 

ATALERR 
ATALERR,F_DRVCLR 
DISPATCH 

T TRIED 


RO,10$ 
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; Release channel before possible RECAL 
3; Restore error status registers. 


DRIVER. SRC JDBDRIVER.MAR; 1 


: Here we will do a RECAL if we had either a Seek Incomplete or a Header 
; Compare Error. 


If Seek Incomplete 

then go do RECAL. 

If NOT HCE, then branch around RECAL. 
Do RECAL for SKI or HCE. 


ANY tl ae LEFT 
i Issue drive clear before retrying. 


FATAL CONTROLLER/DRIVE ERROR, ERROR RETRY COUNT EXHAUSTED, ERROR RETRY 
INHIBITED, OR FINAL OFFSE 


FATAL ERROR = SET STATUS 


Branch if medium is online. 


; Otherwise, set medium offline status, 


n 
clear software volume valid, 
and branch to common exit. 


:§ 
IF SET, DRIVE UNSAFE 
SET OPERATION INCOMPLETE STATUS 


OPERATION INCOMPLET 
R STATUS 


SIF SET 
:SET FORMAT ERRO 


F SET, FORMAT ERROR 

ET WRITE LOCK ERROR STATUS 

SET, WRITE LOCK ERROR 

INVALID DISK ADDRESS STATUS 
S OVERFLOW OR 


I 

Q YES 
RIVE ERROR STATUS 
MING ERROR OR, 
UNCTION OR, 

STER OR, 

IFY REFUSE OR, 
FAIL ERROR? 


rity error status. 
a check error or, 
ECC hard error or, 
header CRC error? 
Branch if so. 
Set fatal controller error status. 
Header compare error or, 
parity error? 
Branch if so. 


— 


aa 
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it STAR OPERATION 3-8 P=] 138 83: 11: 78 YORIVER. SRCIDBDRIVER.MAR; 1 ” 
51 00024064 8F 03 963 BITL §§ #MBASM_SR_MAPPE!- :MAP PARITY ERROR 0 
4 MBASM_SR_ACPE!- MASSBUS CONTROL parity ERROR OR, 
965 MBASM_SR-SPE!= :S] 0 PARITY ERROR OR 
366 MBASM~SR-MOPE !- SMASSBUS DATA PARITY ERROR OR, 
96 RBASAY SR-RDS,R1 SREAD DATA SUBSTITUT 
12 968 BNEQ UNCXT s1F NEQ YES 
39 905¢ F 36 36 MOVZWL oes DATACHECK ,RO [SET DATA CHECK aERROR STATUS 
1 0 K 970 BiTwW #MBASM_SR_WCKLUR!- sWRITE CHECK ERROR LOWER BYTE OR, 
971 MBASM_SR_QCKUPR,R1 sWRITE CHECK ERROR UPPER BYTE? 
1 12 978 BNEQ FUN cx s1F NEQ YES 
50 1046 BF 3C 97 MOVZWL ss NONE XDRV,RO ‘SET NONEXISTENT DRIVE STATUS 
0c 51. ‘12 go 974 BBS MBASV_SR_NED,R1,FUNCXT ;IF SET, NONEXISTENT DRIVE 
50 54 BF 3¢ 979 mOVZWL ass CTRLERR,RO 'SET CONTROLLER ERROR STATUS 
50 0254 4 3C ve 208 MOVZWi #335, VOLINV,RO 'SET VOLUME INVALID STATUS 
979 ;: 
980 ; FUNCTION COMPLETION COMMON EXIT 
$3 : 
9 j FUNCXT ZFUNCTION EXIT 
50 oD 34 PUSHL RO SAVE FINAL REQUEST STATUS 
00000000'GF 16 985 ry: G*1OCSDIAGBUF ILL iF L DIAGNOSTIC BUFFER IF PRESENT 
986 RELCHAN RELEASE SE CHANNEL IF OWNED 
0092 cS) «(OAié@M?1 987 CMPB ss @CDF_LWRITECHECK,UCBSB_ FEKRS) RIVE RELATED FUNCTION? 
1 1A 988 BGTRU 10$ s1F GT thu YES 
0092 cS 6: 10~——«*9272 989 CMPB ss @CDF_LREADPRESET,UCBSB_ FER(RS) sREADIN PRESET FUNCTION? 
13 990 BEQL 10$ ~ IF at ves 
53 S58 AS 00 991 MOVL_ UCBSL_IRP(RS),R3 sae ADDRESS OF IRP 
02 AE 32 a3 #0000 c3 Al oF 99¢ ADDW3 matty “BCR(RS) , IRPSW enti ),2¢SP) ; CALCULATE BYTES TRANSFERED 
1 D4 O4A7 993 10S: CLRL = R21 7 CLEAR SECOND STATUS LONGWORD 
50 BEDO 0449 994 POPL RO SRETRIEVE FINAL REQUEST STATUS 
53 oo91 ¢ 9A QO4AC 995 MOVZBL UCBSB “PRB(RG) ERS) A Get drive offset constant 
5 C44 DE 0481 996 OVAL MBASL-ERB(R4)CR3I,R :Get address of driver registers 
6 09 9A 0487 997 MOVZBL #F_ORUCLR!1,RP CS4(R3) Issue oe. clear before release 
63 0B 9A 048A 998 MOVZBL #F “RELEASE !1” RP_CS1(R3) :Releas 


REQCOM 


COMPLETE PREQUEST 


é~ e 


Pad 
ou 
cw 
Pr 
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TION EXECUTION 328 P=1984 11:4 DRIVER. SRC JDBDRIVER.MAR; 1 
~SBTTL RPO4/05/06 HARDWARE FUNCTION EXECUTION 
FEX = RPO4/05/06 HARDWARE FUNCTION EXECUTION 


mo 
@D 
Te 


THIS ROUTINE IS CALLED VIA A BSB WITH A BYTE IMMEDIATELY FOLLOWING THAT 
SPECIFIES me ADDRESS OF AN ERROR ROUTINE. ALL DATA IS ASSUMED TO HAVE BEEN 
SET UP_IN THE UCB Fis an CALL. THE APPROPRIATE PARAMETERS ARE LOADED 
INTO DEVICE REGISTERS E FUNCTION IS INITIATED. IF THE FUNCTION IS 
IMMEDIATE FUNCTION CONTROL RETURNS IMMEDIATELY. ELSE THE RETURN ADDRESS 
IS STORED IN THE UCB AND A _WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTER- 
RUPT OCCURS, CONTROL IS RETURNED TO THE CALLER. 
INPUTS 

RO = FUNCTION TABLE DISPATCH INDEX. 

R35 = ADDRESS OF DRIVE CONTROL STATUS REGISTER 1. 

R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 

RS = DEVICE UNIT UCB ADDRESS. 

sob rd: = RETURN ADDRESS OF CALLER. 

4(SP) = RETURN ADDRESS OF CALLER'S CALLER. 

IMMEDIATELY FOLLOWING INLINE AT THE CALL SITE IS A BYTE WHICH CONTAINS 

A BRANCH DESTINATION TO AN ERROR RETRY ROUTINE. 

; OUTPUTS: 


THERE ARE FOUR EXITS FROM THIS ROUTINE: 


1. SPECIAL CONDITION - THIS EXIT IS TAKEN IF A POWER FAILURE OCCURS 
rane eicline TIMES OUT. IT IS A JUMP TO THE APPROPRIATE 


2. FATAL ERROR = THIS 


EXIT IS TAKEN IF A FATAL CONTROLLER OR DRIVE 
ERROR OCCURS a I E 


T 
F ANY ERROR OCCURS AND ERROR RETRY IS 
INHIBITED. IT IS A O THE FATAL ERROR EXIT ROUTINE. 


J T 
3. RETRIABLE ERROR - THIS EXIT IS TAKEN IF A RETRIABLE CONTROLLER 
OR DRIVE ERROR OCCURS AND ERROR RETRY IS NOT INHIBITED. 
IT CONSISTS OF TAKING THE ERROR BRANCH EXIT. 


4. SUCCESSFUL OPERATION - THIS EXIT IS TAKEN IF NO ERROR OCCURS 
DURING THE OPERATION. IT CONSISTS OF A RETURN INLINE. 


IN ALL CASES IF AN ERROR OCCURS, AN ATTEMPT IS MADE TO LOG THE ERROR. 


IN ALL CASES FINAL pois AND CONTROLLER REGISTERS ARE RETURNED VIA 
THE GENERAL REGISTERS RO, R1, AND R2, AND THE UCB. 


RO = DRIVE STATUS BE SISTER. 

Ri = Hy) STATUS REGISTER. 

R2 = DRIVE ERROR REGISTER 1. 

itt tte = ECC POSITION REGISTER. 
UCBSW_EC2(R5) = ECC PATTERN REGISTER. 
UCBSW_BCR(RS) = BYTE COUNT REGISTER. 


] 
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¥06=005 RP04/05/06 HARDWARE FUNCTION EXECUTION ¢- fp19 4 11:4 YORIVER. SREIOBDRIVER.MAR: 1 ” TD 
(31 5 
C3 1059 Fex: :FUNCTION EXECUTOR 
9C ‘ BED i 1060 POPL : BSL pC«RS) SAV bRIVER PC VALUE 
9993 (B 1 MOVE CEX(R SAV CASE INDEX 
9165 9A 0400 1 MOVZBL a ts oe sR) 8 [GET DRIVE OFFSET CONSTANT 
53 443 DE +0402 «(1 MOVAL b SERBCRG)ER 1'R iGET ADDRESS OF DRIVE REGISTERS 
38 AS 0096 af p 4D 4 pitt aDEY A_DUA,UCBSL ABEVcHARiRS) DUAL oRTED DRIVE? 
50 0093 ¢ 9A O42 1 66 G0: ROVZBL uce foe SRESTORE CASE INDEX (FUNC. CODE) 
4E? 106 CAS RO, <= [DISPATCH TO PROPER FUNCTION ROUTINE 
6E7 1 8 POSIT,- [SEEK CYLINDER 
6E7 1 6 EXFNC.= :RECALIBRATE 
467 1 0 IMMED.= [DRIVE CLEAR | 
4E7? 197 IMMED, = SRELEASE DRIVE 
4E7 107 EXFNC.= SOFFSET HEADS | 
4E7 1 z3 EXFNC,= SRETURN TO CENTERLINE 
4E7 107 IMMED. = [PACK ACKNOWLEDGE | 
4E7 1 a POSIT.=- [SEARCH FOR SECTOR 
04E7 107 XFER, = :WRITE CHECK 
4E7 107 XFER.= [WRITE DATA 
4E7 1078 XFER.= [READ DATA 
4E7 1079 XFER.= WRITE HEADER AND DATA | 
4E7 1080 XFER.= [READ HEADER AND DATA 
4E7 1081 XFER.= WRITE CHE CK HEADER AND DATA 
4E7 10 é IMMED, = [READIN PRESET | 
4E7 108 SEARCHA,= :SEARCH AHEAD FOR SECTOR | 
aE? 1084 >, LIMIT=@CDF_SEEK ; 
208 108 | 
308 e? : IMMEDIATE FUNCTION EXECUTION | 
208 ! 89 : FUNCTIONS INCLUDE: 
308 1091 : NO OPERATION 
508 1 3 : UNLOAD VOLUME, 
508 1093 : DRIVE CLEAR 
308 109% : RELEASE PORT 
50B 1095 : READ IN PRESET, AND 
8 1096 PACK ACKNOWLEDGE. | 
508 1 $3 + THESE FUNCTIONS ARE EXECUTED IMMEDIATELY AND THE FINAL DEVICE REGISTERS | 
308 1099 : ARE RETURNED TO THE CALLER. 
88 1180 
6B 11 ; IMMED : s IMMEDIATE FUNCTION EXECUTION | 
08 11 DSBINT “DISABLE INTERRUP 
09 64 aS 05 €0 0511 1104 BBS sucBsy POW R, UCBSW_STS(R5),10$ ;IF SET, POWER HAS FAILED 
A 1 1105 MOVZBL ave! RP CS1TR3) CLEAR ORIVE ERRORS 
63 FB6B cra A 0519 11 6 MOVZBL a RP’ CST(R3) SEXECUTE FUNCTION 
08 1 OS1f 1107 108: BRW ; 
1109 
: 1110 t ATTEMPT TO SEIZE THE PORT ON A DUAL PORTED DISK. 
1112 ° 
BA 0002 (5 01. —=sé€€# 1148 SEIZE: BBC wERL V_DUALPORT s1F CLEAR, NO DUAL PORT KIT IN DRIVE 
528 (1114 UCBSB_6B_ERL(RSS, 60 


| 
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RPC4 6934 HARDWARE tUiCTION EXECUTION 3 ats $8: 44:29 YORIVER. SREIDBDRIVER.MAR; 1 ° ty 
DSBINT ;DISABLE INTERRUPTS 
A3 D4 CLRL $(R3) A tata a: ty SrIYE PORT 
00000186 i D3 : BITL FRP.OS PR, = [DID WE SEIZED THE PORT? 
12 12 9 BNEQ $" y1F_NEQ, WE SEIZED THE PORT 
WF TkPCH RETREG, #15 [LETS WAIT FOR THE PORT, ELSE TIMEOUT 
4 10F [CREATE FORK PROCES 
95 11 0548 bree SLETS CONTINUE WE HAVE THE PORT | 
24 23: ENBINT TENABLE INTERRUPTS | 
90 11 ° BRB 60 SLETS CONTINUE WE HAVE THE PORT | 
3 ; SEARCH AHEAD FUNCTION EXECUTION 
3 : THIS FUNCTION MINIMIZES ROTATIONAL LATENCY BY SEARCHING FOR THE SECTOR THAT IS 
: FOUR SECTORS AHEAD OF THE STARTING SECTOR OF A TRANSFER. 
: THE DESIRED CYLINDER, TRACK, AND SECTOR ADDRESS REGISTER $ ARE LOADED, THE | 
6 > FUNCTION IS INITIATED, AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTER- 
; ; RUPS OCCURS, THE FINAL DEVICE REGISTERS ARE URETURNED TO THE CALLER. 
5 e 
5 SEARCHA: 
51 ooBc cS 3c 055 MOVZWL UCB$W_DA(RS),R1 :GET RED TRACK AND SECTOR ADDRESS 
1 04 3 #41 E SPECIFIED SECTO 
5c 


0 

cbse. SECTORS(RS) RI 
1,RP~DACR3) 

bey YL 


TRANSFER FUNCTION EXECUTION 
FUNCTIONS INCLUDE: 


WRITE CHECK, 
WRITE CHECK HEADER AND DATA, 


WRITE DATA 
WRITE HEADER AND DATA, 
READ DATA, AND 

READ HEADER AND DATA. 


THE MAP REGISTERS, BYTE COUNT REGISTER, AND oo ni yat? REGISTER ARE 
oy a i* FOLLOWED BY NATORTES haee CYLINDER, TRACK, AND SECTO UTED. WHEN THE 


a 
So 
we 
3 
< 
[ 


U 
R 
L 


aT ASSUMED THAT THE CALLER OWNS THE CHANNEL ON WHICH THE 1/0 IS TO OCCUR. 


BIRO ODNA NEW S OD NAN E WN CO OD NOAU EWN 0 OD NOU EW OOOO 
Cc 
@ 
@ 
Sete Ge Ge Ge Oe & 
“es 


>. 4 Be Se Se Ge Se Se Ge Se Se Ge Ge Se Ge Ge Se Se Se Se Se 


png an ctr Sin, gaumee emancipate ten A 


SESSSSSSSSSSSSSS5S-599- Oo 
a ann ht th tt ak tk ts a ak kt a a a a bs ts os a = = = —s _ ss ss 


a a ed a dd ed dd + 


| 
| 
FER: ; TRANSFER FUNCTION EXECUTION | 
08 AS «600~—Cés«é2 5 MCOML #0,MBASL_SR(R4) ;CLEAR MASSBUS ADAPTER ERRORS 
06 LOA ;LOAD MAP, BYTE COUNT, AND VIRTUAL ADDRESS 
50 0093 (5 9A MOVZBL UCBSB_CEX(RS) RO ;RETRIEVE FUNCTION TABLE INDEX 


; POSITIONING FUNCTION EXECUTION 


—w" 
ro 
Pd wn 
Ww 
a 
= 
—WIPro 
Me 
-—Oo@ 
—-SOCor 
~ 
SOOoSOCSOOOOOOCOCOOCOSOOSOS SOOO OOSOSOOOOOOOOOOOO OOOO OOOOOOOCOOO OOO or 
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RPOS 86 ARDWARE FUNCTION EXECUTION g-$EF =}382 88: 211: i? YORIVER. SRC IDBDRIVER. mAR:1 if 
; FUNCTIONS INCLUDE: 
; SEEK CYLINDER 
; SEARCH FOR R SEETOR. 
$ THE DESIRED CYLINDER, TRACK, AND SECTOR ADDRESS REGISTER $ ARE LOA DED, THE 
: FUNCTION IS INITIATED, AND A WA ua ITFOR INTERRUPT IS EXECUTED. WHEN THE INTER- 
: RUPT OCCURS, THE FINAL DEVICE REGISTERS ARE RETURNED TO THE CALLER. 
POSIT: :POSITION FUNCTION EXECUTION 
14 a3 008C CS 3¢ cama MOVZ2WL UCBSW_DA(RS) ,RP_DA(R3) ;SET DESIRED TRACK AND SECTOR ADDRESS 


28 AS «=6008e CSC MOVZWL UCBSW_DC(RS) ,RP_DC(R3) 'SET DESIRED CYLINDER ADDRESS | 


; INTERRUPT WAIT FUNCTION EXECUTION 
FUNCTIONS INCLUDE: 


; OFFSET HEADS, 
; RECALIBRATE 


> PS OOO 09090909 69 00 69 09 GD 09 0D CD CD CD CD C9 C9098 INI NING SO 


PROPOPOPOPOPOPOPIPIPOPINOPINIPOPPIPPORINOPPINIPOPONIIIY 2 ts tt tt es 


Or 
SOOOQOOOOCOOOGOOOOGOOOOOSOGOOOSGOOOGGOCOOOOOGOOOOOCOOOOOOOOOOOOCOoSO CO 


RIP IM INIPINIIS 8 2 3 DOO DOOOOCOS OOOO OO OOO OW W009 OOO NINN 


DNA AE WIN = SO OD NA NEW SO OD NAME AN SO OD NAME WW SO OD NO NEW 9 ODNOUE UP 


a 
8 
1 
1 
1 
1 
1 
1 
RETURN TO CENTERLINE. 
1 : THE OFFSET REGISTER 1S LOADED, THE FUNCTION IS INITIATED, AND A WAITF 
1 : INTERRUPT IS EXECUTED. WHEN THE INTERRUPT OCCURS, THE FINAL DEVICE REGISTERS 
: ARE RETURNED TO THE CALLER. 
1 
1 EXFNC sEXECUTE FUNCTION 
1 DSBINT “DISABLE INTERRUPTS 
48 6445 05 €0 4 BS sucBS POWER, UCBSW_STS(R5),ENBXIT ;IF SET, POWER FAILED 
é 09 A ¢ MOVZBL DRVELR!1,RP_CSITR3) [CLEAR DRIVE ERRORS | 
24 a3 0¢8 i 3C F MOVZWL Ucesu OFF OFFSET CRS) RP_OF(RS) :SET FORMAT, INHIBIT BITS, AND OFFSET 
2 O4A 8 5 ASHL S_V_MOL,RP_BS(R3),RO ;MEDIUM ONLINE? 
1 A BGEG s1Ff SEQ NO 
63 -FAEB cre 9A ¢ MOVZBL FTABCRO} RP_CS1(R3) sINITIATE FUNCTION 
WFIKPCH RETREG,# *WAITFOR INTERRUPT AND KEEP CHANNEL | 
OOCE CS 08 AG 0 VL MBASL_SR(R4),UCBSL_DB_SR(R5) ;SAVE FINAL CONTROLLER STATUS 
58 1OF ORK SCREATE FORK PROCESS 
1D 11 «058 B RETREG ; 
i 
SBA > MEDIUM OFFLINE AT START OF FUNCTION 
BA & 
seh 10$ ENBINT sENABLE INTERRUPTS 
0093 cs 4 0580 CLRB UCBSB_CEX(RS) SFORCE DRIVE FUNCTION 
50 4000 8 3c 05c1 MOVZWL #RP_DS_M_ERR,R [SET DRIVE ERROR 
OOCE cs ps C6 CLRL  UCBSL_BB7SR(AS) ‘CLEAR SAVED MBA STATUS REGISTER 
1 CA BIS ERE MEDOFF,- : SET FLAG WHICH INDICATES THAT MEDIUM 
00D2 cs CC UCBS$B_BB_ERL (RS) : WAS OFFLINE AT START OF FUNCTION. 
> cf BRB ERROR ; 
D1 
D1 .ENABL LSB 
D1 


a EN a ee ae ee RN ag ee 8 «ES SS Ee ES I ee a Re ee ee te eT Dae ion 


> 
Do 
Wee 


0$: BRwW 1208 


; ENABLE INTERRUPTS 


Ts: 
ENBINT 


; RETURN REGISTERS 
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TREG 


RAPP INININIOD O SUMO DWUIWM MODUIWMFM OODOOOOOO OOOO OO OWS FV 


3(R5) 
CVTLW «= RP_ECT(R3) ,UCBS$W_EC1(R5) 
2(R5) 


value is that of the number o 


MOVL  MBASL_BCR(R4),- 
UCB$L_DB_BCR(RS) 

MOVL UCBSL~IRP(RS),RO 

BBS #IRPSU_FUNC,- 
IRP$W_STS(RO) ,208 

MOVW UCBS$L“DB_BCR+2(R5).- 
UCBSW"BCR(RS) 


20$: 
MOVL  RP_DS(R3),RO 
ERROR: 
MOVL UCBSL_DB_SR(R5),R1 
§ MOVL RP_ERT(R3) ,R2 
BiTw #uCBSA 


OOPoronry,r 
VINO IW & 
m 
o 


ww 
i=] 
So 
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: : CONTROLLER RELATED FUNCTION 


4 
51 OODESFFF BF D3 5 BITL #MBASM_ERROR,R1 


FUNCTION ExECUTION S-seP-t98e Bostiiey 


AX/VMS Macro v04-00 
DRIVER. SRCIDBDRIVER.MAR; 1 


P 23 
“pe (1) 


; Branch to special condition handler. 


TENABLE INTERRUPTS 


;RETURN FINAL DEVICE REGISTERS 
; Save register after operation. 


sSAVE ECC POSITION REGISTER 
;SAVE ECC PATTERN REGISTER 


TRETRIEVE FINAL CONTROLLER STATUS 


On a read 
tes transfe 


Here we save the more conservative of the two byte counts contained in 
the MBASL_BCR register. The high word of this register is the 
(negative of the) number of bytes transferred to or from the 

rive, while the low word is the (negative of the) number of 
bytes transferred to or oy 
y 


in the UCB. If the operation 


However if the operation 


int s 
Retrieve IRP pointer. 


f we had a read operation then 
' ust branch around since all OK. 


id byte count. 
; Save entire byte count register 
he UCB 


the more conservative 
rred to memory (low word) 
while on a write the more conservative value is the number of 
eyes transferred to the drive (high word). Here we deposit 
the entire register into a longwor 

was a read we leave the value as is. 
was a write (or anything but a read) we move the high word to 
the low word in memory. ALL other Pisces of this driver use the 
low word of this longword as the va 


NOT read, then copy high word to 
low order word for later use. 


GET CONTENTS OF DRIVE STATUS REGISTER 


:GET CONTENTS OF DRIVE ERROR REGISTER 1 
OWER FAIL OR DEVICE TIMEOUT? 


POWER! - : P 
74 BSM_TIMOUT,UCBSW_STS(R5) ; 

8 $ 31F'NEQ YES = SPECIAL CONDITION 
7 CMPB SCF _URITECHECK ,UCBSB_CEX(R5) 


hg 


3 1F GTRU 


we RELATED FUNCTION? 


sIF EQL YES 


sANY CONTROLLER ERRORS? 


7? CMPB a OF READPRESET .UCBSO_CEIRS? OTHER DRIVE RELATED FUNCTION? 


[ u 8 
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ira tt RPO TOS 706 HARDWARE FUNCTION EXECUTION a= Se 1382 Boi t4ia4 YORIVER.SREIOBDRIVER.MAR: 1 - th 
13 0629 1 $ BEQL $ :1F EQL NO 
00000000' 16 0608 1 JSB G*ERLSDEVICERR ALLOCATE A AND FILL ERROR MESSAGE BUFCER 
6C 009A EO 0631 1 ‘ 8B #10$V_INHRETRY,UCBSW_FUNC(R5),90$ <IF SET RETRY INHIBITED 
51 00080008 D ris BITL BASA_SR_ERCONF !- ZERROR CONFIRMATION O 
63E 1290 MBASM_SR_ISTO!- SINTERFACE SEQUENCE Timeout OR, 
63— 1291 MBASM-SR-PGE ! = ‘PROGRAMMING ERROR OR, 
63— 1 36 MBASM-SR-RDTO,R1 SREAD TIMEOUT? 
63 3 63E 109 BNEQ «9 [IF NEQ YES = FATAL CONTROLLER ERROR 
51 Q0064FF4 BF DS 0640 129% BITL  #MBAS DLT!- DATA LATE OR 
647 1295 MBASM_ mesh _INVMAP! = i INVAL D MAP REGIS 
0647 1 %6 MBASM-SR-MAPPE ! = ;MAP REGISTER PARITY TERROR OR, 
647 129 ASM~SR-MBEXC!- sMASSBUS EXCEPTION 
647 1298 MBASM~SR-MCPE ! = ;MASSBUS CONTROL PARITY ERROR OR, 
647 1299 ASM~SR-SPE!- +SILO PARITY ERROR OR 
0647 1300 MBASM-SR-MDPE ! = SMASSBUS DATA PARITY ERROR OR, 
0647 1301 MBASM-SR_MXF !- ‘MISSED TRANSFER OR, 
0647 1 0g MBASM~SR-NED! = ‘NONEXISTENT DRIVE OR, 
0647 130 MBASM-SR-RDS/- [READ DATA SUBSTITUTE OR 
0647 1304 MBASM~SR-WCKLWR! = CURITES CHECK LOWER BYTE OR, 
0647 1305 MBASM-SR-WCKUPR,R1 ‘WRITE CHECK UPPER BYT 
31. «12 0647 06 BNEQ 60$ TIF NEQ YES = RETRIABLE CONTROLLER ERROR 
0649 1308; 
0649 1309 : DRIVE RELATED FUNCTION 
stg 1a | 
08 91 0649 1 \¢ 30$: CMPB #COF_PACKACK,=- 3 Packack function? 
0093 C5 0648 131 UCBSB_CEX(RSS ; 
OF 12 O646E 1314 BNEQ 40 : Branch if not. 
08 50 OC £0 0650 1315 BBS #RP_DS M ast RO,40$ : Success if medium online 
gr. oth 1316 BBC #10$v Y,- ; Branch if retrys nat inhibited. 
28 009A ¢5 656 1317 UCBSW FUNCCRS) °65$ ; 
—E5 065A 1318 BBCC yUCB ALID ; Otherwise, clear software volume 
44 64 A 65C 1319 UCBSW sisiass, 905 ; valid and take fatal error path. 
£1 065F 1320 40$: BBC ORE DS_v_ERR,RO, NO phive ERRORS 
00c0 C5 7 as Ac 0663 1321 50$:  MNEGW UCBSW_ BvnteRsye et “ecrins). UNesty B BYTE COUNT - NO TRANSFER 
5 00D2 E 084 } § BLBS UCB$B_DB ERL(R5), g Be Nor ont? qrcor rts medium was offline 
poy 1324 JSB G*ERLSDEVICERR LfOcAle "AND Tete’ ERROR MESSAGE BUFFER 
29 oon ee” SF £8 rs74 1325 BBS #10$V Henne Fay UCBs run Abkoce -IF SET, RETRY INHIBITED 
550 Oc €1 O67A 1 6 60$: BBC rnb,90$ ~ IF eR” ‘aidiua OFFLINE. 
150 06 €1 O67E 1 BBC #RP~DS~ v0, $0$ SIF CLR, INVALID VOLUME 
S52. 0607 8F 83 0682 13208 65$:  BITW  #RPTERT Va weit SADDRESS OVERFLOW OR, 
06 1329 RP_ER1_ "TARTS ZINVALID ADDRESS OR 
687 1330 RP"ER1“MTILFi- TILLEGAL FUNCTION OR, 
687 1331 RPER1-M-ILRi- SILLEGAL REGISTER OR. 
687 1 : RP"ER1—M~RMRi- SREGISTER MODIFY REFUSE OR, 
687 1 RP“ER1~MWLE.R2 “WRITE LOCK ERROR? 
1A 12 (0687-1334 BNEQ SIF NEQ YES = FATAL DRIVE ERROR 
52 4000 8F 689 1335 BITW #RP_ER1_M_UNS ,R2 : Is the drive unsafe? 
16 ° : $ BNEQ 1008 : Branch if so. 
690 1 
690 1 g: ; RETRIABLE ERROR EXIT 
B30 18ey 
| 7E 0090 DS 32 0690 1342 708:  CVTWL @UCBSL_DPC(RS),-(SP) :GET BRANCH DISPLACEMENT 
| 
} 
| 
| 
| 
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ira ti RPO 5006 HARDWARE FUNCTION EXECUTION aes ae 4 88:1 11: 79 DRIVER. SRCIDBDRIVER.MAR; 1 ° (1) ) 
009C C C 695 1343 ADDL (SP)+,UCB$L_DPC(R5) ;CALCULATE RETURN ADDRESS = 2 
009C c3 op 9 69A 1344 80S: ADDL a uc 6S pPt(RS) ;SKIP PAST BRANCH DISPLACEMENT WORD 
09C D oor 49 JMP ae ues SOPC CRS) SRETURN TO DRIVER 
6A3 1 23 : 
6A 1 +8 3; FATAL CONTROLLER OR DRIVE ERROR 
6A3 1349 ; 
6A3 1350 
FD45 =631 O6A5 1351 908: BRW FATALERR : 
Q6A6 1 2¢ 
6A6 135 ; 
ev ! 2¢ i 3; Check for unsafe condition and attempt to clear it. 
06A6 1356 
6A6 1357 100$:  ODSBINT ; Disable interupts. 
0S €1 O6AC 1358 BBC #UCBSV_POWER,- ; Branch if no power failure occured. 
03 64 A5 O6AE 1359 UCBSW *STSRSS, 110$ ; | 
FF20 31 0681 1360 BR! nN BXIT ; Otherwise, enable interupts and 
0684 1561 : age process error. 
63 09 9A 0684 1308 110$:  MOVZBL #F_DRVCLR!1,RP_CS1(R3) ; Attempt to clear unsafe condition. 
0687 136 TIMEWAIT = : Wait for ten microseconds or until 
0687 1364 TIME = #1,- 3 unsafe condition clears. 
0687 1365 BITVAL = #RP_ER1_M_UNS,-; 
0687 1366 SOURCE = RP_ERI(R33,- — ; 
0687 it +24 CONTEXT = Lo ; 
0687 1368 SENSE = .FALSE. 3 
O6DF 136? ENBINT ; Enable interupts. 
= 2 DO Q6E2 1370 MOVL a fa) (RS) Re ; Retrieve error status. 
A750 E€8 OQ6€6 1371 BLBS RO, 708 ; Branch if drive is no longer unsafe. 
11 Q6€9 1 ie BRB ; Otherwise, fatal error. 
06EB 137 
06EB 1374 : 
Rees : 2 3 3; SPECIAL CONDITION (POWER FAILURE OR DEVICE TIME OUT) 
0668 1377 ° 
61 64 AS 05 E4 peee : 4 1208: BBSC #UCBSV_POWER ,UCBSW_STS(R5),150$ ;I1F SET, POWER FAILURE 
6FO 1380 : 
F 13581 ; DEVICE TIME OUT 
SFO 1388 | 
09900090 GF 16 O6F 1384 JSB ayer restore ¢LOS DEVICE TI OuT 
5 DO O6F6 1385 MOVL UCBSL_CRB(R5) ,R3 . ADDRESS 0 co 
53 CA DO O6FA 1 § MOVL CRBSL- NEDeueeSe 1DB(R3). R5 ;GET ADDRESS OF IDB 
04 a3. —55—i«éO FE 1 CMPL =o ID DBSL_OWNER(R3) :DEVICE OWN CONTROLLER? 
eS 1388 BNEO 140 SIF NEQ 
704 1389 DSBINT ;DISABLE INTERRUPTS 
06 00 70A 1390 MOVL #MBASM_CR ghPORt !RBASR CR IE,> ; ABORT THE DATA TRANSFER 
04 A4 70C 1391 meast L_CR(R : 
7 ; 1 3 vr yer | 0$,715 AIT FOR ABORT AND KEEP CHANNEL 
718 139 10FO 7 CREATE boRK PROCESS 
71E 1394 1308: 
4 A6 O01 OD 71E 1395 MOVL ASM_CR_INIT,MBASL_CR(R4) ; INITIALIZE ENTIRE rae 
AS 04 00 0722 1 % MOVL #MBASM~CRIE maase CR(RG) NABLE DEVICE INTERRUPT 
726 1397 1408: SET IPL ucese FIPC(RS) sLOWER TO FORK LEVEL 
50 pees 8F Hs 72A 1 38 MOVZWL #SS$_ TIMEOUT “ sSET DEVICE TIMEOUT STA 
080 C5 72F 139 DECB UCBSB_ERTCNT(R5) ZANY ERROR RETRIES REMAINING? 


cot 


| 
| 
| 
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viral tt RP0Q4/05/06 HARDWARE FUNCTION EXECUTION a SET bbe 8814324 LORIVER. SRE IDBDRIVER.MAR: 1 . (1) vo 
OF 13° 07 ; 1400 BEQL RESETXFR s1F EQL NO 
? 1401 RELCHA “RELEASE CHANNEL IF OWNED 
64 AS 00460 8F AA 0738 14 ¢ BICw #UCBSM_TIMOUT,UCBSW_ STS(R5) :CLEAR TIME OUT STATUS 
FA68 31 0741 14 BRwW FOISPATCH 3 
744 1604 
744 1605 ; 
744 14 gi ; RESET TRANSFER BYTE COUNT TO ZERO 
744 1407 ; 
744 1408 
744 1409 RESETXFR: 
53. 58 as DO 0744 1410 MOVL UCBSL_IRP(RS) ,R3 RETRIEVE ADDRESS OF 1/0 PACKET 
00co cS 32 A AE 0748 1411 MNEGW IRPSWTBCNT(R3S, UCBSW_ BcRiR ) ;RESET TRANSFER BYTE COUNT 
FD2E 31 O74E 148 Rw FUNCXT : 
0751 141 
0751 1414 ; 
0751 1415 ; POWER FAILURE 
0751 1e18 : 
0751 141 
0751 1418 150$: RELCHAN RELEASE CHANNEL 
58 AS 0757 1419 MOVL UCBSL_IRP(R5) ,R3 RETRIEVE ADDRESS OF 1/0 PACKET 
78 A 2C AS) «6 7D)«=C(075B) = 1420 MOVa IRP$L-SVAPTE(R3) ,UCBSL_ SVAPTE(R5) ;RESTORE TRANSFER’ PARAMETERS 
F9D4 o768 1421 BRw DB_STARTIO $ 
0763 1422 DSABL LSB 
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; SYST 


DB_DTYPE: 


10$: 


208: 


ats ae 1S CALLED WHEN AN UNSOLICITED INTERRUPT OCCURS ON A DRIVE 


DB_DTYPE = RPOG/RPOS/RPO6 CLASSIFY DRIVE TYPE AND SET PARAMETERS 


INITIALIZATION, AND AT POWER RECOVERY TO DETERMINE THE DRIVE TYPE AND 


; SET UNIT PARAMETERS. 
; INPUTS: 


R3 = ADDRESS OF DRIVE CONTROL REGISTER. 
R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
RS = DEVICE UNIT UCB ADDRESS. 

OUTPUTS: 


THE DRIVE STATUS REGISTER IS INTERROGATED AND UNIT PARAMETERS ARE SET. 


:READ RL DRIVE TYPE AND SET PARAMETERS 


RP_DT(R3) D DRIVE TYPE REGISTER 

aeC<*x1FF>, (SP) : CLEAR EXTRANEOUS BITS 

DB_DTDESC,R2 :GET ADDRESS aor DESCRIPTOR TABLE 
(SP), (R2)¢ :DR IVE TYPE MATCH? 

20$ TIF EQL YES 

#0B_DTDESCLEN-2,R2 + ADVANCE TO NEXT ENTRY 

(R2 [END OF TABLE? 

10$ if NEQ 

#uCBSM ONL INE, E.UCBSu_ STS(R5) ;SET UNIT OFF 

#0 :BACK UP TO LAST DRIVE DESCRIPTOR 
(R234 D UeRSB. EN UT TBE (RS) “SET DEVICE TYPE 

(R2)+,UCBSL =peV DEPEND(RS) “SET DISK PACK GEOMETRY 
(RO)*,UCBS$L MAXBLOCK(R5) ;SET MAXIMUM BLOCKS PER PACK 

(R2) ,UCBSL_ MEDIA. IDERS) 7SET MEDIA IDENTIFICATIO 

(SP)¢ SREMOVE DRIVE TYPE FROM STACK 


DURING 


‘ae 
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DRIVER = RP04/05/06 DISK DRIVER 15-SEP=1 245: 36 VAX/VES I cro v04-00 P 
44 RP04/05/06 REGISTER DUMP ROUTINE 3-8 P=} 138 88; 11: i? YORIVER. SRC IDBDRIVER. MAR; 1 ree ?, 
? 16) «SBTTL RPO4/05/06 REGISTER DUMP ROUTINE 
29 16 ; ; DB_REGDUMP = RP04/05/06 REGISTER DUMP ROUTINE 
798 1465 : THIS ROUTINE IS CALLED 10, SAVE THE CONTROLLER AND DRIVE REGISTERS IN A 
798 14 § ; SPECIFIED BUFFER. IT IS CALLED FROM THE DEVICE ERROR LOGGING ROUTINE AND 
29 14 ; FROM THE DIAGNOSTIC eUrFERY FILL ROUTINE. 
29 1285 : INPUTS: 
79 1299 ; RO = ADDRESS OF REGISTER SAVE BUFFER. 
79 1678 ; R4 = ADDRESS OF ADAPTER CONFIGURATION REGISTER. 
29 1473 3 RS = DEVICE UNIT UCB ADDRESS. 
29 1425 : OUTPUTS: 
29 i ; THE CONTROLLER AND DRIVE REGISTERS ARE SAVED IN THE SPECIFIED BUFFER. 
798 1479 ° 
798 1480 DB_REGDUMP: RP04/05/06 REGISTER DUMP ROUTIN 
80 17 00 0798 1481 MOVL a#<RP EC2+4sMBASL BCR+4+85/4, (RO)+ ; INSERT NUMBER OF gevice REGISTERS 
80 64 00 0798 14 : MOVL mBASC C (R4), (RO) 4 ; CONFIGURATION REGIST 
80 04 a6 00 O79E 14 MOVL MBASL“CRERG) (RO) + VE CONTROL REGISTER 
80 OOCE CS DO O7A2 1484 MOVL  UCBSL“DB_SR(R5),(RO)* SAVE STATUS REGISTER 
80 OC A4 00 O7A? 1485 MOVL  MBASL-VAR(R4), (RO)+ SAVE VIRTUAL ADDRESS REGISTER 
80 10 a6 00 O7AB 14 : VL ASL“BCR(R4),(RO)+ TSAVE BYTE COUNT REGISTER 
51 FB AO 08 09 EF O7AF 14 EXTZV #9,#87-8(RO),A1 ; FINAL MAP REGISTER NUMBER 
80 0800 C441 DO 0785 1488 VL MBASL’MAP(R4S(R1),(RO)+ i SAVE FINAL MAP REGISTER CONTENTS 
0 04 078B 1489 CLRL = (RO) + UME NO PREVIOUS MAP REGISTE 
1 07 078d 1490 DECL~=s RI CALCULATE PREVIOUS MAP REGISTER NUMBER 
07 19 O7BF 1491 BLSS 108 F LSS NON 
FC AO 0800 C441 00 07C1 1498 MOVL MBASL_MAP(R4)(R1],-4(RO) :SAVE PREVIOUS MAP REGISTER CONTENTS 
1 19 9A O7CB 1493 10$:  MOVZBL #<RP_EC2+4>/4,R1 7SET NUMBER OF DRIVE REGISTERS TO SAVE 
52. 0091 ¢5 9A O7CB 1494 MOVZBL UCBS$B_SLAVE+1(R5).R 'GET DRIVE OFFSET CONSTANT 
52. 0400 caue DE O7D0 1495 MOVAL MBASL - TERB(RG)ERZI, R [GET ADDRESS OF DRIVE REGISTERS 
80 DO 0706 1496 20$:  MOVL  (R2)+-(RO)+ SSAVE DRIVE REGISTER 
FA F5 0709 149 SOBGTR R1,20$ [ANY MORE TO SAVE? 
05 O7DC 1498 RSB 3 
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| peer ti RP Re ORPS ESS Sob b DISK bRive INITIALIZATION mie 88; 11: ra YORIVER. SRCID DBDRIVER.MAR; 1 (1) 
7p 9 «SBTTL RPO4/RPOS/RPO6 DISK DRIVE INITIALIZATION 
20D qi ; DB_RPOX_INIT = RPOG/RPOS/RPO6 DISK DRIVE INITIALIZATION 
: THIS ROUTINE I$ CALLED AT SYSTEM INITIALIZATION AND AT POWER RECOVERY TO SET 
7D 3% ; DRive SANE TERS AND TO WAIT FOR ONLINE DRIVES TO SPIN U 
Zp § : INPUTS: 
oD 1 $ : R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
700 10 : RS = DEVICE UNIT UCB ADDRESS. 
ZbD 1 > OUTPUTS: 
he 1315 : UNIT PARAMETERS ARE ESTABLISHED AND THE DRIVE IS SPUN UP IF IT WAS ONLINE. 
700 1516 ° 
POX_INIT: ;RP04/RPOS/RPO6 DISK DRIVE INITIALIZATION 
53 S4 AS) 3C as 1317 re “AOVTUL 2 BSW UNIT(RS) R3 [GET DRIVE UNIT NUMBER 
0090 83 90 0761 1218 Ove uceses AVE (R5) 7SET SLAVE UNIT NUMBER 
§ 4 O07&6 1520 MULL acta SCALCULATE DRIVE OFFSET CONSTANT 
0091 ¢ g $6 7E9 1501 MOVB ,UCBSB. SLAvEs) 1(R5) SSET DRIVE OFFSET CONSTAN 
53 0400 C443 DE O7EE 15 é MOVAL Rah $ ERB(RA) R3),R3 :GET ADDRESS OF DRIVE CONTROL REGISTER 
vd tag rte 13 4 PUMCUALT’@ #100 Anes, M_DPR,- :TRY TO SEIZE DRIVE 
1050 €9 oe 12 BLB :NO PORT SEIZED 
50 18 3 DO 0825 15 5 MOVL  RP_DT(R3),RO GET DRIVE TYPE 
08 50 1 OB 9 1528 8 P _DT_V_DRQ.RO,5$ z1F CLEAR, LEAVE 
0 fs D 1529 B1S8 #ERC_M~DDALPORT,- ; SET iW: OHICH INDICATES THAT DISK 
00D2 ¢ F 1530 UCBsé BB_ERL(RSS : HAS DUAL PORT OPT 
6 09 «(OA 1531 MOVZBL ORICLAST. RP_CS1(R3) Ch LEAR 
0 1532 S$: POPR ooAcR R1> RESTORE “REGIS TERS 
7E 66 3 eC 15 § MOVZWL UCBSU. Otte RS), -(SP) SSAVE CURRENT UNIT STATUS 
Ad ODD 1534 PUSHL MBASL™SR(R4) "READ MBA STATUS REGISTER 
64 AS 08s BF OA — 1535 BICW cucesh. ONLINE! UCBSM VA VALID ucBsi W_STS(RS) ¢SET UNIT OF FLINE/ INVALID 
i? 18 t8 13 $ Bi gu SUCBSR “ONC INE .UCBSW_ 08 alt set UNIT ONL INE 
FFI4G «3 4C 13 BSBW 0B DTYPE sCLAgSIFY DRIVE TYPE 
2364 a5 046 €1 O84F 15 3 BBC #UCBSV_ONLINE ,UCBSW_STS(R s1F CLR. UNKNOWN DRIVE TYPE 
1E 04 A 1 54 1540 BBC uc $V"VALID,4(SP) ei :1F CLR, VOLUME SOFTWARE INVALID 
6 68 SA 9 1541 10$: MOVZBL DaVEL R'1,AP CSIC LEAR ORIVE 
52 O46 A ‘3 4} gC 13¢¢ ASHL j STRP _DS_V_MOC ,RP_DS(R shi pistes ONL INE? 
00000000 a RTIMCHX [CHECK FOR MAXIMUM TIME EXCEEDED 
op '$ 3 é3 i BLBs Ro cre esPu tes :1F LBS MORE TIME TO GO 
9 11 O86C 154 
: #F_PACKACK!1,RP_CS1(R3) ‘ACKNOWLEDGE PACK 
64 AS $00 13 4 $f i one aoyget futesh VALID. UCBSw ST§(R5) sSET VOLUME SOFTWARE VALID 
Oe SA = 8 30$: thy #F RELEASE'1,RP_CST(R3) :Clear drive and release port 
08 AG $ E 9 za 1330 408: Bist (SP)+, (SP)+,MBASL_SR(R4)” SCLEAR MBA STATUS 


53-0091 € 
53 0400 C44 
AS 10 
FED1 
1F 64 AS = 04 
20 64 a 
52. O04 A ' 
07 64 AS (08 
0093 ¢5 608 
OD 
52 O04 AS 19 
06 
64 AS 0800 8F 
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BF Fe eK Oey i teo anremupt Rou 'e-sep-iobe GO:47:4% LOMIVER.caesbebotvce.man:1 29° 28, 
3 .SBTTL RPOG/RPOS/RPO6 UNSOLICITED INTERRUPT ROUTINE 
5 3 DB_UNSOLNT = RPO4/RPOS/RPO6 UNSOLICITED INTERRUPT ROUTINE 
1 5 : THIS ROUTINE IS CALLED WHEN AN UNSOLICITED ATTENTION CONDITION IS DETECTED FOR 
8 + AN RPOG, RPOS, OR RPOS DRIVE. 
60 : INPUTS: 
1 6¢ : R4 = ADDRESS OF CONFIGURATION STATUS REGISTER. 
63 ; RS = DEVICE UNIT UCB ADDRESS. 
és : OUTPUTS: 
1567 ; If VOLUME VALID IS CLEAR, THEN SOFTWARE VOLUME VALID IS CLEARED. THE 
1568 : UNIT STATUS IS CHANGED TO ONLINE AND THE DRIVE TYPE AND PARAMETERS ARE 
1 $ : CLASSIFIED. 
1879 * 
1 fe DB_UNSOLNT: :RPO4/RPOS/RPOG UNSOLICITED INTERRUPTS 
157 MOVZBL UCBSB_ SLAVE *1 (RS), R [GET DRIVE OFFSET CON 
1574 MOVAL MBASL peRBCRGIERS) GET MOORES 10 DRIVE s CONTROL REGISTER 
1575 BISW #UCBSA_ONLINE Ne .ucasu sTsik :SET UN 
1376 BSBW DB DTYPE LA ae ¥ VDRLVE TYPE 
137 BBC #uCBS$V_ONLINE ,UCBSW sts hs >,10$ CLR, UNKNOWN DRIVE TYPE 
1578 BBC CBSV"VALID,UCBSwW_STS( g08 it CLR, VOLUME SOFTWARE INVALID 
1579 ASHL #31-RP~DS_V_MOL RPDS ( ins) "MEDIUM ONLINE? 
1580 BGEG ’ Q NO 
133) BBC vieey BSY, UCB$W_STS(RS) .5$ zsWe know the drive is online; thus, 
15 : CMPB 0s #CF__PACKACK,UCBSB_CEX(R5) iit busy eeiee a PACKACK function, 
138 BEQL * $~ n don't 3 ear software valid. 
1584 5$: ASHL §#31-RP_DS_V_VV,RP_DS(R3) .R2 STOL UNE v 
1585 BLSS “IF LSS YES 
13 $1] 0s: ay #UCBSM_VALID,UCBSW_STS(R5) sCLEAR SOFTWARE VOLUME VALID 
1388 DB_END SADDRESS OF LAST LOCATION IN DRIVER 
1590 END 
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Phase Page faults CPU Time Elapsed Time 
patetos teatten ; 1B 0:00:00:40 09:00:01 
rocessin :00:00. :00: 
: ot isi m 585 8: 019-4 0 Athy 
syabol able sor :00:02. :00: 
283 : 06:48 09: 217. 
wed table output 4 700.21 0:00:00. 
Psect synopsis output :00.01 0:00:00.01 
Cross-reference output :00. 9 0:00: $0 
Assembler run totals 107 :26. 0:01:38.94 


Tee ygrk ing set Limit was 2100 pages 

51555 bytes (296 pages) of virtual memory were used te buffer the intermediate code. 

eee were 120 pages of symbol table ,sPace vcing, 22. 0b hold 2322 non-local and 65 Local symbols. 
source lines were read in Pass 1, producin object records in Pass 2. 

48 pages of virtual memory were used to aottae 2 5 macros. 
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Macro library name Macros defined 
SYS.0B MLB; 1 3 
Rtittttr A538: Sys OB sath ath Ret ET ALB: 2 i$ 
Tote? (all Libraries) 40 


2486 GETS were required to define 40 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:DBDRIVER/OBJ=0BJ$:DBDRIVER MSRC$:DBDRIVER/UPDATE=(ENHS:DBDRIVER) +EXECMLS/LIB 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


010 


